home *** CD-ROM | disk | FTP | other *** search
/ Micro Dingo Especial Manga 1 / Micro Dingo Especial Manga 01 CD.iso / cd dingo / dingosexo / hentai / juegos / 01.swf / scripts / frame_501 / DoAction.as
Text File  |  2003-02-03  |  628b  |  28 lines
  1. contador = "1";
  2. while(contador < "13")
  3. {
  4.    pos_libre = "0";
  5.    while(pos_libre == "0")
  6.    {
  7.       mirar_libre = random("24") + "1";
  8.       lugar_carta = "/c_" add mirar_libre add ":posicion";
  9.       if(eval(lugar_carta) == "0")
  10.       {
  11.          pos_libre = "1";
  12.          set(lugar_carta,contador);
  13.       }
  14.    }
  15.    pos_libre = "0";
  16.    while(pos_libre == "0")
  17.    {
  18.       mirar_libre = random("24") + "1";
  19.       lugar_carta = "/c_" add mirar_libre add ":posicion";
  20.       if(eval(lugar_carta) == "0")
  21.       {
  22.          pos_libre = "1";
  23.          set(lugar_carta,contador);
  24.       }
  25.    }
  26.    contador += "1";
  27. }
  28.